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$Sbegin rmsfwadef,v04-000 


PARA RARASALAALALA ASAE ALARA LARA ARE EERE ESAS EEE REESE REESE EE RRS ETERS RECESS 


COPYRIGHT Se Ma 1980, 1982, 1984 BY 

DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ALL RIGHTS RESERVED 

THIS fo verhe is FURNISHED UNDER A j Scemee AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AN . at at THE 
INCLUSION OF THe ABOVE C pls h ad NOTICE. THIS SOFTWARE OR THER 
COPIES THEREOF a " BE PROVIDED OR OTHERWISE MADE AVAILABLE 10 ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORAT itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eeene ee eee ee eee eee eeenen 
@enenenenenennnenennnnnnennnnene 


PARAS ASAAALASASASAASALEAL ALES ATES ESE SES ESSE ESE SEE SESE SESE RESET EERE ESSE SY 
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internal rms FWA structure definitions 
Modified By: 


v03-032 DGB0077 Donald G. Blair 13-Aug-1984 
Add FWASL_UCBSTS. 

v03-031 RASO321 Ron Schaefer 9-Jul-1984 
Eliminate access mode itemlist entry for STRNLNM. 

V03-030 JEJ0046 E Johnson 05-Jul-1984 


Increase the Length of the quoted buffer " Hand ea 
long resultant file specification. 


v03-029 RASO296 Ron Schaefer 18-Apr-1984 
Make SPARSE followed by SCREATE on a spooled” device work. 
Add a $GETDVI field for the secondary device name 
that Vill be returned in NAMST_DVI for spooled devices. 
Make device buffers be only 16° chars for this release. 


v03-028 CdS0002 Christian D. Saether 11-Apr-1984 
Modi ty FIBLEN constant to reflect change in Rib Length. 


V03-027 JWT0166 Sas Mihae 
Foscten, ‘wt cya by 138° ytes by peteing ct of 
FWAST dd a lLongword FWASL_ATR gonk mien 
will ney a-pginier to a Gyneaieatey a al Tocated work 
area for ACP attributes. WORK is 0, 
then a work area is not currently sllccered. 


v03-026 RASO261 Ron Schaefer 6-Mar-1984 
POASY EXP NODES CUR_VER ty lonene FWASV_NULL “NODE to 
Delete separate QUOTED buffer and make NAME buffer 
big enough for both. Make FWASQ_NAME and FWA$Q “QUOTED equal. 
Grow the FIB buffer. 


V03-025 RASO234 on Schaefer 11-Jan-1984 
Add definition of SSLBHDEF, * revise FWA searchlist fields 
and filename storage to support multi-input sticky 
searchlists. Make device buffers be 256 characters long. 


V03-024 RASO231 Ron Schaefer Soson=t004 
Add FWA flag definition for syntax-only p 
This saves probing the NAM block in various *pleces. 


VO3-023 RASO0226 Ron Schaefer 29-Dec-1983 
Add FWA STRNLNM mode processing back in for correct PPF 
precessing. This was deleted by RASO219 incorrectly. 


v03-022 RASO219 Ron Schaefer 8-Dec-1983 
Reorganize FWA fields and change BID values: 


{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


Change | SCB$ to FSCBS. 
Add FWAST_CDIRxBUF fields for rooted directory names. 
Add FWAST-CDEVICEBUF for concealed device name. 


{ 
{ 
{ 
{ 
¢ 
c 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
¢ 
{ 
¢ 
{ 
( 
{ 
¢ 
{ 
{ 
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v03-021 


v03-020 


v03-019 


v03-018 


v03-017 


v03-016 


v03-015 


v03-014 


v03-013 


v03-012 


v03~011 


v03-010 J 


v03-009 


v03-008 


M 
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Delete hee ¢ =fLreury buffers, now jdyneatcet ly allocated. 
Delete FWAST SWB {tele, now dynamically allocated. 
Delete FWAST XN fields, now dynamically Silecetes. 
Delete FWAST_CONCEAL_BUF. 


RASO212 Ron Schaefer 15-Nov-1983 
Add FWASL_DEV_CLASS for use oo RMOPRFLNM/STAPRFLNM 
in stand-alone BACKUP. 


$HZ0001 Stephen H. geyew 12- asepe yes 

Change the size of SHRFILBUF 5 bytes, and add a 

additional buffer of 32 ly to contain the name of a unique 
lock name for a file. 


KBT0580 Keith B. mn son 11-Aug-1983 
Make Rk. and d type buffers 1 byte bigger so that the 

not overwrite the next fields 
aiso- ~ a up some constants. 
Also shorten SLB cause we don't have to save the logical 
name in the SLB anymore. 


KBT0556 Keith 8B. Thompson 13-Jul-1983 
Add some fields to scb 

KBT0549 Keith B. Thompson 23-Jun-1983 
Change the ln_flg and sl_flg to Iln_flgs and si_figs 
KBT0536 Keith 8. Thompson 11-Jun-1983 
Add SWB definitions and move some fields around 

KBT0528 Keith B. Thompson 25-May-1983 
Change ITMLIST A LTMLSt and fix the item afttets and 
add the file name buffers 

KBT0504 Keith B. Thompso 3-May-1983 
Add SLB and some volated FWA Holes. (for search List) 
JWHO210 effrey W. Horn 12-Apr-1983 
Add IDACE, the iceenot id ACE. 

RASO146 Ron Schaefer 18-Apr-1983 


Fix FWAST_FIBBUF to be slightly more tolerant 
of changes in the ACP FIB length. 


KBT0501 h B. Thompson 7-Mar-1983 
Add SCB block sont FUASC. IMPURE_AREA 
wWHO190 Jeffrey W. Horn 15-Feb-1983 
add VOLNAM field. 
KBT0495 Keith B. Thompson 15-Feb-1983 
Add null_node flag 
KBT0484 Keith B. Thom Feb-1983 


Make wild iesten” thes enough for long Sitetaes name and 
add swb pointer 
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c 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 


v03-007 pores Keith B. Thompso 77-Jan-1983 
Put BID, BLN ane’ PUA PTR fields and make it’ Tongword aligned 
v03-006 CDS0001 Christian D. Saeth 77-Jan-1983 
Change FWAST _FIBBUF ond FWASC *FIBLEN to 56 (new FIB Length) 
v03-005 KBT0449 Keith B, Thompso 55-Jan-1983 
Make user char. a real longuord. field 
V03-004 JWHO150 Jeffrey W. Horn 13-Dec-1982 


eee ty Journaling work area to implement seperate 
ACEs for each journal name. 


v03-003 RASO107 Ron Schaefer 13-Dec-1982 
Make room for both words of the user file characteristics 
Longword (FWASW_UCHAR). 


v03-002 KBT0429 Keith 8. Thompson 3-Dec-1982 
Add fwa$q_shrfil y the RP 
v03-001 KBT0400 Keith B. Thomps 8-N 


v-1982 
Unfold all iuneasta detinittens aad add/delete some defs. 
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fwa - field definitions 
file work area definitions (fwa) 


PAAAAAAAA 


blocks for interfacing with filacp 


module SFWADEF; 


{toe 

/* 

/* Flags 
/t 


/*-- 


aggregate FWADEF structure fill prefix FWA$; 
FLAGS OVERLAY union fill; 
FCAGS quadword unsigned; 
FLD_FLGS structure fill; 
PASSFLGS byte unsigned; 
FLDOFLGS byte unsigned; 
WILDFLGS re uns gned: 


DIR 
DIRWCFLGS byte unsigned; 


/t 
/* flags for pass 
/t 


FLAGS_FIELDS structure 
PASSFLGS_OV 
PASSFLGS BITS structure fill; 


oc, 
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the file work area is used for expanding the file 
name string and setting up the various parameter 


various parse status flags 


flags for pass only 

flags for fields seen 

flags for wild cards 

flags for parse results 

flags primarily for directory spec 
directory wild flags 

logical name flag byte. 

search List + rooted directory flags 


discard duplicate element 
do not copy this field 

search List pass 

set if applying related file defaults 

set if primary name string parse pass 

set if open by name block 

explicit node has been seen, null or normal 


$;/* start at byte 1 
$;/* spare 
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VERSION bitfield mask; /* set if version seen 
TYPE bitfield mask; /* set if type seen 
NAME oi gtiete mask; /* set if name seen 
DIR bitfield mask; /* set if directory spec seen 
DEVICE bitfield mask; /* set if device seen 
end FLAGS_BITSO; 
® 
/* flags for wild cards 
* 
FLAGS pity? strycture fill; - 
FILL_3 bitfield length 16 fill prefix FWADEF tag $$;/* start at byte 2 
EXP_JER bitfield mask; /* set if explicit version 
EXP_TYPE bitfield mask; /* set if explicit type 
EXP_NAME bitfield mask; /* set if oph sett name 
WC_VER bitfield mask; /* set if wildcard (*) version 
WC_TYPE bitfield mask; /« *" type 
WC_NAME bitfield mask; /* '' name 
EXP_DIR bitfield mask; /* set if explicit directory 
EXP_DEV bitfield mask; /* set if explicit device 
end FLAGS_BITS1; 
/t 
. flags for parse results 
5 
FLAGS_BITS2 structure fill; 
FILL_4 bitfield Length 24 fill prefix FWADEF tag $$;/* start at byte 3 
WILDCARD bitfield mask; /* set if any wildcard seen 
NODE bitfield mask; /* set if node name seen 
QUOTED bitfield mask; /* set is quoted string seen 
/* (valid only if node set and no fldfilgs) 
GRPMBR bitfield mask; /* set if directory in torp.mbrd format 
WILD_DIR bitfield mask; /* inclusive or of directory wild cards 
DIR_CVLS bitfield mask length 3; /* ! of directory sublevels (0 = ufd only) 
end FLAGS_BITS2; 
/t 
. flags primarily for directory spec 
® 
FLAGS_BITS3 structure fill; 
FILL_5 bitfield length 32 fill prefix FWADEF tag $$;/* start at byte 4 
DIR] bitfield; /* ufd level directory or group seen 
DIR2 bitfield; _ /* sfd level 1 directory or member seen 
FILL_6 bitfield Length 6 fill prefix FWADEF tag $$;/* additional sub directory level flags 
end FLAGS_BITS3; 


/t 
Ae directory wild flags 


FLAGS_BITS4 structure fill; : 
FILL_?7 byte dimension 5 fill prefix FWADEF tag $$;/* start at byte 5 
WILD_UFD bitfield; /* the dirl spec was a wild card 


—_— — — eee eT ee 
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WILD Grp) bitfield; e dir2 He was a wild card 
FILL_8 bitfield —_ 6 fill esate, FWADEF tag /* additional. sub directory wildcard flags 
end FLAGS pot el 
FLAGS BITS5 structure f 
FILL_9 byte ae selas i fill prefix ae + tag $$;/* alternate definition for dirl and dir2 
WILD_GRP bitfield; /* the grp spec contained a wild cerd 
WILD _MBR bitfield; /* the mor spec contained a wild card 
end FLAGS_BiTSS; 


/t 
A logical name flag and miscellaneous byte 


FLAGS vay perwesere fill; 
L.10 pyte dimension 6 fill prefix FWADEF tag $$;/* start at byte 6 
LOGNAME bitfield /* a logical name has been seen this pass 
/* (note: this byte is sores as context 
/* when processin ri -dir-list] format) 


OBJTYPE bitfield; /* set if quoted string is of the 
/*t "9 biesttypess ss for 
/* (valid only if quoted set) 
NETSTR bitfield; /* set if quoted string is of the 
/* hort b pAb e=taskname/...'' form 
/t y if quoted and objtype set) 
DEV_UNDER bitfield; /* sartcs name was prefixed with an underscore 
FILEFOUND bitfield; /* true if at least one file found by search 
Prorla te x eheateti /* use resultant string returned by 
eaerervenas /* syntax-only checking is requested (NAMSV_ SYNCHK set) 


/t 
oe search List and rooted directory flag byte 
® 


FLAGS Bitsy structure fill; 
FILL_11 byte dimension 7 fill prefix FWADEF tag $$;/* start at byte 7 
SLPRESENT bitfield; /* search List present 
CONCEAL_DEV bitfield; /* concealed device present 
T_DIR bitfield; /* root d rectory present 
DFLT ah bitfield; /* default MFD string inserted, due to [-] 
P inthe /* explicit root directory 


end PASSELGS_0 OVERLAY; 
end FLAGS FIELDS? 
end FLAGS OVERLAY; 


/t 
Value for all filename elements except node 
® 
constant ALL equals 
(CF WASM DEVICE! 
tire DIRT 
WASH” “NAME ! 


FUASA TYPE! 
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FWASM VERSION)@-8) ) 
pretix FGA tag $C; 


/* 
constant for all flags that vary per parsing pass 
constant ALLPASS equals 
( FWASM_DUPOK! 


{tee 


/* 
/* Misc. Fields 
/t 


/e-- 


ROOTERM byte unsigned; 
ESCSTRING OVERLAY union fill; 
ESCSTRING FIELDS structure fill; 


end 
end ESCSTRING_OVERLAY; 
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gned; /* saved R1 y ; 
; /* pointer to work area for ACP attributes 
/* (zero if one not currently allocated) 


BID byte unsigned; /* bid 

constant BID equals 40 prefix FWA tag $C; /* bid of fwa 

BLN axe unsigned; /* bln 

DIRTERM byte unsigned; /* directory spec terminator (‘']' or ">") 


/* root directory spec terminator (']' or '>') 
ESCSTRING longword unsigned; /* escape equivalence string 


ESCFLG byte unsigned; /* set to the char <esc> if an escape string 
/* seen, zero otherwise 

ESCTYP byte unsigned; /* escape ' 

ESCIFI word unsigned; /* escape if 

ESCSTRING FIELDS; 


FIB quadword unsigned; /* fib descriptor 
DEVBUFSIZ Longword unsigned; /* device buffer size 
DEV_CLASS longword yrs taney /* device class 
RECSIZ longword unsigned; /* blocked record size 
UNIT Longword unsigned; /* device unit number 
UIC Longword unsigned; /* file owner uic 
PRO word unsigned; /* file protection word 
DIRLEN arte unsigned; /* overall directory spec length 
SUBNODCNT byte unsigned; /* number of secondary (sub) node specs found 
DIRBDB longword unsigned; /* address of directory file 
LOOKUP senpuere unsigned; /* address of new directory cache node 
DEVWODADR longword unsigned; /* address of device directory cache node 
DIR guadvere unsigned; /* directory name scratch buffer 
UCHAR_OVERLAY union fill; 

UCHAR longword unsigned; /* user characteristics longword 

UCHAR word unsigned; 
end UCHAR_OVERLAY; 
FWA_PTR longword unsigned; /* pointer to second fwa if any (SRENAME) 
SWB_PTR Longword unsigned; - painter to sw 

address 


temporary pur ter 


anna aee 


{tee 


/* 
os Logical name and search List fields 


[t-- 


/* 
. Item List block for logical name services 


ITMLST_OVERLAY union fill; 
ITALST character length 64; /* 
ITMLST FIELDS structure fill; 
ITA_INDEX character length 12; /* 
ITM_ATTR character length 12; /* 
ITMSTRING character Length {2; /* 
ITM_MAX_INDEX character length 12; /* 
ITM_END sengyore unsigned; /* 
end ITMCST FIELDS; 
end ITMLST_OVERLAY; 
/t 
. Logical name translation fields 
BUFFLG byte unsigned; 
® 
XLTMODE byte unsigned; he 
® 
XLTSIZ word unsigned; /* 
XLTBUFF1 Longword unsigned; /* 
XLTBUFF2 Longword unsigned; /* 
/t 
. SLBH and SLB pointers 
SLBH_PTR Longword unsigned; /* 
SLB_PTR Longword unsigned; /* 
SLBH_FLINK longword unsigned; /* 
SLBH_BLINK lLongword unsigned; /* 
/* 
/* Fake SLB - NOTE: This MUST be the size of SLBSC 
/* The field FWASB_LEVEL must be at 
/* as SLBSQ_LEVEL would be. 
. hack but it works very nicely) 


SLB_OVERLAY union fill; 
SLB character Length 24; 
SLB_FIELDS structure fill; 


/t 


F 
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Logical name item List 


index 

attributes 

string 

max index 
terminating Longword 


flag for which translation buffer is in use 
(0 = buf2 in use, -1 = bufl in use) 

mode of translation on input to STRNLNM 

mode of equivalence etring on output from $TRNLNM 
Length of equivalence str ng 

primary translation buffer descriptor 

secondary translation buffer descriptor 


current SLB List 
current SLB List 


SLBH que fwd Link 
SLBH que back Link 


BLN 
the same offset 


(It sounds Like a real 


space for SLBS$C_BLN 


FILL_17 byte dimension 11 fill prefix FWADEF tag $$; 
LEevEC byte unsigned; 
end SLB_FIE 


DS; 


/t 


recursion level 


cated 16-SEP-1984 16:446:19.98 Page 10 


end SLB_OVERLAY; 


_ 


/t 
os Logical name descriptor 


LOGNAM quadword unsigned; /* logical name descriptor 


ese@e@eeneeeeeeeeeeeeeeene 


PABAAA— AAAAAAAAAAA AAO ONY 


H 
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descriptors for parsed filename elements 


The descriptors are defined as: 
' flags H Length 


The flags are defined by FSCBSV_flag in SFSCBDEF 


NODE quadword unsigned; /* node name (actually node spec list) descriptor 


/* (the associated buffer is fwa$t_nodebuf) 
constant MAXNODNAM equals 6 prefix FWA tag $C; /* max node name size 
constant MAXLNDNAM equais 15_ prefix FWA tag $t; /* max logical node name siz 


e 
constant MAXNODLST equals 127 prefix FWA tag $C; /* max node spec List size (concatenated node specs) 


device name descriptor 


DEVICE quadword unsigned; /* device name descriptor 
constant MAXDEVICE equals 255 prefix FWA tag $C; /* max device name size 
CONCEAL_DEV quadword unsigned; /* concealed device descriptor 


directory name descriptors NOTE: The two sets of eiroctery 
descriptors must be contigous 
or RMSSETDID will break 


DIR1 quadword unsigned; /* concealed ~~. directory descriptors 
DIR2 quadword unsigned; /* concealed subdirectory 1 

DIRS quadword unsigned; eo 

DIR4 quadword unsigned; eS 

DIRS quadword unsigned; i 

DIR6 quadword unsigned; >. 3 

DIR? quadword unsigned; 4) pai § 

DIR8& quadword unsigned; /t 


onstant MAXCDIR oquete 8 prefix FWA tag $C; /* max number of concealed directories 
1 quadword unsigned; 


fwh~i~=l~i~-i~i~)~lsakolel elie el el ee 


IR /* top level directory descriptors 
Re Quadword unsigned; /* subdirectory 1 

IRS quadword unsigned; je" 

IR4 quadword unsigned; fe" 

IR5 quadword unsigned; oo 

Ing Quadword unsigned; Pe | 

IR? quadword unsigned; Pe $ 

IR8 quadword unsigned; /* 


{ 
| 
{ 
{ 
¢ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
{ 
é 
{ 
{ 
{ 
{ 
¢ 
{ 
c 
c 
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constant MAXSUBDIR equals 7 prefix FWA tag $C; /* max number of sub directories 
constant MAXDIRLEN equals 255 prefix FWA tag st; i. max size of total directory $Be¢ 3 
7 


| 


* should be: top + subdir 


ed; / vbn 
constant STATBLK equals 10 prefix FWA tag sc;Je define Length of statistics block 
end STATBLK_FIELDS; 


end STATBLK_OVERLAY; 
FILL_14 word fill prefix FWADEF tag $$; /* spare 


/t 
/* node descriptors 


/* dots between 
delimiters 
/* total 321 
/t 
oe The filename, filetype and fileversion descriptors MUST be contiguous 
. file name descriptor 
NAME QUOTED union fill; 
NAME quadword unsigned; /* file name descriptor 
oe euitesee™ unsigned; /* quoted string descriptor 
end NAME _QUOTED; 
constant MAXNAME equals 39 prefix FWA tag $C; /* max file name size 
constant MAXQUOTED equals 255 prefix FWA tag $C; /* max quoted string size 
/* 
‘i file type descriptor 
TYPE quadword unsigned; /* file type descriptor 
constant MAXTYPE equals 39 prefix FWA tag $C; /* max file type size 
w 
A file version number descriptor 
VERSION quadword unsigned; /* file version descriptor 
constant MAXVER equals 6 prefix FWA tag $C; /* maximum version 
RNS quadword unsigned; /* resultant name a descriptor 
constant MAXRNS equals 86 prefix FWA tag $C; /* max resultant name string size 
SHRFIL quadword unsigned; /* shared file device descriptor (readable form) 
SHRFIL_LCK quadword unsigned; /* shared file device descriptor (unreadable form - used for lock name) 
AS_SHRFIL quadword unsigned; /* secondary device descriptor (readable form) 
STATBLK_OVERLAY union fill; 
STATBLK charecter length 10; /* 
STATBLK_FIELDS structure fill; ' 
SBN longword unsigned; /* starting lon if contiguous 
HBK longword unsigned ‘ 


RAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPARAAAAAAAAAAAAAAAAAAAAAN 
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/t 


NODE1 quadword unsigned; /* primary node spec descriptor 
/* (the associated buffer is fwa$t_nodebuf) 
eet Quadword unsigned; /* secondary (sub) node apes descriptors (1-7) 
NODES quadword unsigned; /* note: bytes 2-3 of each of these descriptors 
NODES quadword unsigned; /* contains the flags word that is output 
NODES quadword unsigned; /* from nxtfld subroutine in rmOxpfn 
wODss Quadword unsigned; /* note: fwa$q_nodel thru arg notes" 
NODE? quadword unsigned; /* describe the same string as does 
NODE8 quadword unsigned; /* fwa$q_node 
constant BLN_FWA equals . prefix FWA$ tag K; /* Length of fwa 


constant BLN FWA equals . prefix FWAS tag C; /* Length of fwa 
constant MAXSUBNOD equals 7 prefix FWA tag $C; /* max number of secondary (sub) node specs 


AAA AAAAAAAAAAAAAAAPAPDAAAAAAAAAAAAAA AP AAAAAAAAAAA AAA AN 
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Jee 


/* 
buffers for parsed filename elements 


/t-- 


FIBBUF character Length 76 /* fib buffer 


constant FIBLEN equals 76 prefix FWA tag SC; /* fib buffer size 


{ 

{ 

{ 

; 

RNM_FID character Length 6; /* saved fid for rename directory check ; 

/* $ 
o directory name buffers t 
is NOTE: These buffers must be contiguous $ 
{ 

DIRIBUF character Length 39; /* ufd level (or group) { 
DIR2BUF character Length 39; /* ist sfd level Cor member) { 
DIRSBUF character Length 39; /* subdirectory 3 { 
DIRG4BUF character Length 39; /* subdirectory { 
DIRSBUF character Length 39; /* subdirectory 4 { 
DIR6OBUF character length 39; /* subdirectory 5 { 
DIR7BUF character Length 39; /* subdirectory § { 
DIRSBUF character Length 39: /* subdirector { 
constant DIRBUFSIZ equals $9 prefix FWA tag $C; /* size of each directory buffer ? 

/* { 
. rooted directory name buffers ; 
a NOTE: These buffers must be contiguous ; 
{ 

CDIRIBUF character Length 33: /* ufd level (or group) { 
CDIR2BUF character Length 39; /* ist sfd level (or member) { 
CDIRSBUF character Length 39; /* subdirectory ; { 
CDIR4BUF character length 39; /* subdirectory { 
CDIRSBUF character Length 39; /* subdirectory 4 { 
CDIR6BUF character Length 39; /* subdirectory 5 { 
CDIR7BUF character Length 39; /* subdirectory 6 { 
CDIR8BUF character Length 39; /* subdirectory 7 ¢ 

/* { 
/* NOTES: 1. The following buffers must be contiguous as eventually the ; 
-. type and version are appended to the name string ¢ 
/* 2. The name buffer and the type buffer must be 1 byte larger then { 
/* the max name and type size (resp) because xpfn writes the { 
is name and type terminators in the buffer at the end of the string 
NAMEBUF character length 256; /* file name/quoted string buffer { 
TYPEBUF character length 40; /* file type buffer 

{ 


VERBUF character length 6; /* file version buffer 
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UCBSTS Longword unsigned; 


UNDER_DEV eye unsigned; 
DEVICEBUF character Length 255; 


CDEVICEBUF character Length 256; 


UNDER_NOD byte unsigned; 
NODEBOF character Length 127; 


WILD character length 48; 


SHRFILBUF character Length 16; 
SHRFIL_LCKNAM character Length 16; 
AS_SHRFILBUF character Length 16; 


BIJNL quadword unsigned; 
AIJNL quadword unsigned; 
ATJNL quadword unsigned; 


BIACE_OVERLAY union fill; 
ACE character length 20; 
BIACE FIELDS structure fill; . 
ILL_19 byte dimension 4 fill prefix FWADEF 
IJNCN character length 16 
end BIACE FIELDS; 
end BIACE_OVERLAY; 


AIACE_OVERLAY union fill; 
ATACE character length 20; 
AIACE FIELDS structure fill; 
FILL_20 byte dimension 4 fill prefix FWADEF 
AIJNCN character length 16; 
end AIACE FIELDS; 
end AIACE_OVERLAY; 


ATACE_OVERLAY union fill; 
ATACE character length 20; 
ATACE FIELDS structure fill; 
FILL_21 byte dimension & fill prefix FWADEF 
ATJNCN character length 16; 


end ATACE_ FIELDS; 
end ATACE_OVERLAY; 


IDACE_OVERLAY union fill; 
BACE character Length 32; 
IDACE_FIELDS structure fill; 


ucb$l_sts field for prim device 


character ‘'_"’ stored here 
device name buffer 


concealed device name buffer 


AAAAAAAAAAAA 


character ‘'_"’ stored here 

node name buffer 

scratch field used by RMOWILD 

size = 1 * 
name 39 
.dir;* 6 
spare 2 
48 


shared file device id buffer (readable form) 
shared file device id buffer (unreadable form - used for lock name) 
secondary device id buffer (readable form) 


/* descriptor of BI journal name 
/* descriptor of Al journal name 
/* descriptor of AT journal name 
/* BI journal name ACE 

tag $$; 

/* Al journal name ACE 

tag $$; 

/* AT journal mame ACE 

tag $$; 

/* Journal ID ACE 


M 
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FILL 22 byte dimension 4 fill prefix FWADEF tag $$; 
JNLIB_ OVERLAY union fill; 
JALID character length 28; /* complete journal ID 
JNLID FIELDS structure fill; 
VOLNAM character length 12; /* volume Lable of media file resides on 
FID sherpcrer Length 6; /* file- 
FILL.25 byte dimension 2 fill prefix FWADEF tag $$; 
ID_DATE quadword unsigned; /* id time stamp 
end JNLID_FIELDS; 
end JNLID_ OVERLAY; 
end IDACE_FIECDS; 
end IDACE_OVERLAY; 
constant BLN_BUF equals . prefix FWAS$ tag K; /* Length of fwa and buffers 
constant BLN_BUF equals . prefix FWA$ tag C; /* Length of fwa and buffers 
constant BLN equals . prefix FWA$ tag K; /* Length of fwa and buffers 
constant BLN equals . prefix FWA$ tag C; /* Length of fwa and buffers 


end FWADEF; 
end_module SFWADEF; 


os 


AAAAAAAAIA 
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peene SSLBHDEF ; 


/* SLBH 


+4 - Search List Header Block 


aggregate SLBHDEF structure fill prefix SLBHS$; 
FLINK longword unsigned; 

BLINK longword unsigned; 

BID byte unsigned; 

constant BID equals 43 prefix SLBH tag $C; 


end_module S$SLBHDEF ; 
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forward Link 
backward Link 
block ID 


Length 
flags for FWA$B_PASSFLGS 
string Length 

ptr to SLB queue 

saved FNB from RLF file 
start of string 

Length of SLBH 

Length of SLBH 


eodule SSLBDEF; 
/* SLB - Search List Block 


aggregate SLBDEF structure fill prefix SL8S$; 
FLINK Longword unsigned; 

BLINK Longword unsigned; 

BID byte unsigned; 

constant BID equals 41 prefix SLB tag $C; 

BLN byte unsigned; 

FLAGS OVERLAY union fill; 

FCAGS byte unsigned; 


LEVEL byte unsigned; 

INDEX Longword unsigned; 

MAX_INDEX longword unsigned; 

ATTR Longword unsigned; 

constant BLN equals . prefix SLB$ tag K; 

constant BLN equals . prefix SLB$ tag C; 
end SLBDEF; 


end_module $SLBDEF; 


forward Link 
backward Link 
lock ID 


I 
length 
flags 


"Real" SLB as opposed to the fake FWA one 


recursion level 
translation ind 
max translation 
attributes fla 
Length of SLB 
Length of SLB 
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ex 
index 
s 


RMS 
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wetule SFSCBDEF; 
/* FSCB = FileScan control block 
/* This block is passed to PARSE_STRING from XPFN and RMSSFILESCAN 


/* The descriptors are defined as: 


/* descriptor flags 


/* These flags are used through out the RMS file name parsing routines. 
/* The flags can be found in all of the field descriptors. 


/* NOTE: The flag ELIPS must be the first bit in the second word. 
/* It is referenced this way in RMOWILD and other places 


aggregate FSCBDEF union fill refix FSCB$; 
CBDEF BITS structure fil 
FILC_1 bitfield Length i6 fill prefix FSCBDEF reg $$;/* flags are defined in high word of geacripter 
EL IPS bitfield mocks eli ‘ose's was detected in directory (dir) 
WILD bitfield mask; /* a wild card was detected (dir, name. type ver? 
ACS bitfield mask; /* access control string in node name (node) 
QUOTED bitfield mask; /* quoted file spec (name) 
NULL bitfield mask; /* field was null (terminator only) (all) 
PWD bitfield mask; /* password masked out (set in xpfn) (node) 
GRPMBR bitfield mask; /* group,member format directory (dir) 
MINUS bitfield mask; /* minus directory field (dir) 
CONCEAL bitfield mask; /* name was concealed (dev) 
MFD bitfield mask; /* MFD directory (set in xpfn) (dir) 
ROOTED bitfield mask; /* directory was a root directory (dir) 
end FSCBDEF BITS; 

end FSCBDEF; 

/* 

/* FSCB 


POBrEReS ate FSCBDEF1 structure fill prefix FSCB$; 
FLDF oh union fill; 
CAGS ait unsigned; / 


cs 


field flags 
FLDFLAGS BITS structure fill; 
NODE bitfield mask; 


end_module $FSCBDEF ; 
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DEVICE bitfield mask; 
ROOT bitfield mask; 
DIRECTORY bitfield mask; 
NAME bitfield mask; 
TYPE bitfield mask; 
VERSION bitfield mask; 
end FLDFLAGS BITS; 
end FLDFLAGS_OVERLAY; 


ROOT4 quadword unsigned; 
ROOTS quadword unsigned; 
ats qQuadword unsigned; 


DIRECTORY! quadword unsigned; 
CTORY2 quadword unsigned; 
CTORYS quadword unsigned; 
CTORY4 quadword unsigned; 
CTORYS quadword unsigned; 
beets qQuadword unsigned; 
TORY? q ; 


IRECTORY8 quadword unsigned; 

constant BLN equals . prefix FSCB$ tag K; 
constant BLN pquets - prefix FSCBS$ tag C2 
constant MAXD! equals 8 prefix s¢B tag $C; 
end FSCBDEF1; 


ocuovuVTVT[ToSo 
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number of nodes in spec 

number of root directories in spec 
number of directories in spec 

full file spec 

full node List spec 

device spec. 

ull root directory list spec 

Ll directory List spec 

name 


version 


max number of node descriptors ; 
the ROOTn descriptors must be contiguous 


max number of root descriptors ; 
the DIRECTORYn descriptors must be contiguous 


max number of directory descriptors 
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gedule SSWBDEF ; 
Ae Directory string work buffer for wild card directory processing 


aggregate SWBDEF structure fill prefix Swa$; 
F AGe RYERLAY union fill; 


GS byte unsigned; /* flags (must be first) 
FLAGS BITS structure fill; 
ECLIPSIS bitfield mask; /* eliipsis 
BOUNDED bitfield mask; /* ellipsis bounded 
WILD bitfield mask; /* wild name 
DELIMITER bitfield mask; /* res teu tng delimiter 
irate ct bitfield mask; /* should skip subtree 
FIRST bitfield mask; /* first time through 
ELLIPSIS EXISTS bitfield mask; /* dir spec contains ... 
VALID_DIB bitfield mask; /* FIB DID is valid 
end FLAGS BITS; 
end FLAGS OVERLAY; 
EN byte unsigned; /* Length of current token 
PPOS byte yn toned; /* position in pattern 
TOKENS LEFT byte unsigned; /* number of non ... tokens left 
NIMUM byte unsigned; /* minimum level for success 
MAXIMUM byte unsigned; /* maximum level for success 
FIRST_E byte unsigned; /* token ! of first ellipsis 
DIRWCFLGS byte unsigned; /* FWASB_DIRWCFLGS on entry 
ID byte unsigned; . /* block ID 
constant BID equals 42 prefix SWB tag $C; /* ID 
BLN byte unsigned: /* Length 
FILL_1 word fill prefix SWBDEF tag $$; /* spare 
PATTERN quadword unsigned; /* descriptor of pattern 
SCRATCH_PAT longword unsigned; /* scratch copy of first longword 
SCRATCH_BUF character Length ig; /* scratch temp buffer (same size as FWAST_WILD) 
PATTERN_BUF character length 256; /* should be: FWASC_MAXDIRLEN-2, 


constant "BLN'’ equals . prefix SWB$ tag K; 
constant ‘BLN’ equals . prefix SWB$ tag C; 
/* wild dir spec 
end SWBDEF ; 


end_module S$SWBDEF ; 


Ene EQUIPMENT CORPORATION 
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